home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-13
/
amac44d.zip
/
SRL.QM
< prev
next >
Wrap
Text File
|
1992-06-22
|
4KB
|
110 lines
* SRL.QM
* Search ONLY From Command Line With SRL.BAT and SZ.BAT
* 6/8/92
*
* ----------------------------------------------------------------------
* @(7) - Search ONLY From Command Line With SRL.BAT and SZ.BAT
* ----------------------------------------------------------------------
* This macro performs a search only of text files and loads all files
* containing the search text. It is the autoexecutable macro to
* perform a search only from the command line only using the batch file
* SRL.BAT. FGREP.COM, INPUT.COM and QEdit v2.15 are required.
* Changing c:\ to your ram drive will increase speed.
* Parameters may either be input from the command line or in response
* to query prompts. Please refer to SRL.BAT for other details
* concerning entering optional parameters at the command line or in
* response to input query prompts. Please refer to SR.QM and SRL.BAT
* for other details.
* To search for text in non-zip files type SRL at the command line and
* answer prompt for search text. After the files containing the search
* text are loaded, press F4 to highlight first occurence of search
* text. Press F6 then F4 to highlight first occurence of search text in
* first file containing search text. IT CANNOT BE RUN WHILE EDITING!
* When completed, the following files are loaded for viewing or
* editing:
* Window 1 c:\! List of files found & search text by line
* Window 2 n+1 Files containing search text
* (n = # files containing search text)
*
* Temporary file names are:
* c:\$.ql List of files found & search text (output from FGREP.COM)
* c:\! Same as c:$.ql
* c:\$ Output of Dos SET
* FGREP.COM, INPUT.COM and QEdit v2.15 are required. Changing c:\ to
* your ram drive will increase speed. Please refer to SRL.BAT and
* SR.COM for other details concerning entering optional parameters at
* the command line or in response to input query prompts.
@7 macrobegin altwordset * For all file names
cursordown cursorup
jtrue START * Test if any search text found
* --------------- Display "No found text" Message ---------------*
MESSAGE:
"No found text" *|
jump END * If not found, display this
* -------------------------- Load Files --------------------------*
START:
endfile
LOADAGAIN:
* unmarkblock * Unmark last file name *|
setscreenon setscreenoff * To reduce flashing
find
#42 "Fi" return
"B" return * Find file name
jfalse MESSAGE * No find ?, show message, end
wordright wordright
markcolumn endline copy * Copy file name to scrap
EditFile
CurrentFilename " "
Paste Return * Load file
cursorup
jtrue LOADAGAIN * Test if more filenames?
* ------------------- Get Search Text To Scrap -------------------*
editfile "c:\$" return * Load set output file
find
"S~~" return
delline return ** Find S~~ in SET output
find
"=" return
delline return * Move to =
cursorright * Move first character
markcharacter * Mark it
endline * Move to end of text
copy * Copy search text to scrap
killfile quit * Kill/quit temp for next time
Find
paste return
"i" return * Initialize find for F4
begfile
END:
defaultwordset
*
* 83 bytes Sat 02-09-1991 10:47:23
* 107 bytes Thu 04-25-1991 12:04:27 added "No found text" message
* added find initialize for search
* changed "c:" to "c:\"
* 110 bytes Tue 04-30-1991 22:11:07 changed initialize find routine
* 114 bytes Wed 04-15-1992 16:46:20 (TH @7, for QEdit v2.15)
* (In Amac42e.zip)
* 111 bytes Mon 06-01-1992 17:28:19 (TH @7, shortened)
* (f4)
f4 repeatfind
* (f5)
f5 prevfile
* (f6)
f6 nextfile